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BEGIN REAL COMMON; 
********* 

COMMENT 



***********< 
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TITLE! 65 
FILE IDS 
THIS MATE 
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EXCEPT IN 
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BURROUGHS 



***** F I iN U / C A t\ Li F_ 3*70 *************************** 
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COPYRIGHT 
A A 3252 .06 
FTARROW = "«-"#* 
TKNS,FILlNXCC 
Y E.S.PEQi3QJ*. 
OUNO, BRAAK* 
OLD 12 JZ±2±£ 
LPAlM^t2jlS) 
0SK2 I)ISK SER 

LDSIZE* TOKEN 

* COLS*. COL 

* I* EOR, 

* NF* NRANG 
CANNED* SEC, 

USER* WRKA 
ILOOP. EXIT, 

RD* SERIALHD 
************* 

TWX0UTCA,N#T 

C.QMMUNICATEC- 

********************** 



DEFINE LE 
ARRAY GRP 

SAVE ARRA 

BOOLEAN F 
FILE IN 
FILE OUT 
FILE OUT 

INTEGER 
REAi. AD J 

HRANGE 
ESPPTR 

&C* S 

TOTALS 
LABEL END 

RANDOM 

********* 
PROCEDURE 
BEGIN 
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XIV SYSTEM RELEASE * 
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2 BURROUGHS CORPORATION 

AA366657 . 
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NDLIT* HA 
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REAL ST 

BEG I 

******* 

REAL ST 

BEGI 

******* 

STREAM 
******* 

BEGI 
DI j» 

END 
******* 
STREAM 

BEGI 

******* 
STREAM 

.BEGI 

******* 

REAL ST 
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...Y AL .UE I 

******* 

STREAM 
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***** 
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PROCEDURE A 

•a;, address 
*********** 

PROCEDURE D 

*LOC PC.I V.l 

*********** 

DURE SHIFTS 

*********** 



DDRESS(A); 

*=5IJ EJNDi 

************* 
ECCONV(OCTV); 

DI.r»LQ.C DEC CD 
************* 

EQ( WORK)/ 
************* 
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*di + s; 

OCEpURE 
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BACKSH 
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**** 
IFTC 
bI + 8 

**** 



MOVEWORDSC 



PI'^b; 

******* 



OSjl* 

* * * * 



EDURE OCTCO 
LOC 
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r; : re_al 
******* 

MOVETY 
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FTSE 
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; dsj 
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* *** * 
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5; EN 

* ** * * 

ecv); 

**** * 
ABDR) 
ADDRi 



2* 10' 300'SAVt 30); 

END WORD* . t-.LG* . GRPMJiK.*.. GftPCO-UNI 
LRANGE* MAX* NAM1# NaM2* NAM3 
* NUM2* PREVNF* PERLINE* REC» 
KALS* TOKENLENtiTH* XO.KENP.JR*. 

*EQLD> NEXlHAi\iGE* 

SIHEAO*. ICKt.NUJQPi 

*********************************** 

heal a,n,t; 

OLE A.NC Hi EjslIU. 

*********************************** 



*********************************** 

value octv; 

Ny; p.s.1 =8DE,c; . EHOJ 

*********************************** 

*********************************** 

*wDsi DI:=wu*K; Os:»LlT LEFTARRQw; 

*********************************** 

^.l..p.s.i=wps; end; _ 
*********************************** 

VALUE N) 

p; _ _ _ 

*********************************** 



us:= a OCT; END; 



*********************************** 
* 

array areacoj; communi cate (-8) ; 



** ** 

PE(F 

**** 
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1»F2 

* ** * 
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); 

* * * ** 



*********************************** 
*********************************** 



> DH-LOC F2> 

; oit*mc F2; 



dsi«wds; 
ds:»wos; 



00010700 

oooioaoo 

00010900 

*QQOll.QOG 

'0001UOO 

00011200 

00011300 

000U400 

OOOllbOO 

00011600 

*000H700 

oooneoo 

Q-0Q119QQ 

*00012000 
00012100 

..QQ.g122.ao.. 

*00012300 
00012400 
00012500 

*00012600 
00012700 

*Q.Q.U12&QQ 
00012900 
00013000 
OOOJ.3100 . 

•00013200 
00013300 
00013400 

*00Ql3b00 
00013600 
00013700 

•00013800 
00013900 
0Q014Q00 

* 000 14 100 
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000.14300 
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00014500 
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00014766 
00014800 
00014900 
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sn=F2; 4(Si»=si + e); siisbi+e; i>v:=i>i; 
SI I=F i; 3(Si: = SI-e)/ oi:=loc fi; OS:-WDS; 

si;=fi; . i.4t..8.i;»si+.e.3i .di:=uic eh. us;?wus; 

sissfi; 4(Si;«si + ew si:=si+6; ui.ssv; dsisChr; 

END STREAM PROCEDURE MQVETYPE; 

3L** *.*.***.* **.***_*.******..*..**.* *.**.** ***.*..*.***..** **.*.*..*** * *..* * *****>_.*.*.**..*.**.*.*.*_***..*. 
STREAM PROCEDURE NUMFCUNDCO* NM ) ; VALUE NM; 

r************************************************* 



OCUlbOOO 
00015100 
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00015300 
00015400 
.00513500 
00015600 
00015700 
0-00.t5fe.00 
00015900 
00016000 
0-0-0X64X10- 



***************000l6200 
00016300 



%********************* 

BEGIN _....... .__ _ 

DI*=0; DSla26LIT M NUMB£R OF STRINGS FOUND * "/ 

Sl»*LOC NMl DSt»8 DEC; Dll»Dl-8* USJe7 FILL; 

£ND. STREAM. ERQCEDULRE-JiUMF-OLLNDJ _... - 

I******************************************************* 

REAL STREAM PROCEDURE HDR(F,N); VALut Hi uuv A o 3 uu 

% ****** * *.**.* * ******** *..**.* .fL**^AAj^*±*.JiZ*****J^±*Jt**! k ..* ******* *** ********** »*QOQ16flO0 

BEGIN 00016500 

siisf; 3(sit*si-e); dh«loc f; osiswds; 00016600 

siisf; i4csi**si+8j; .di..*?ldc u. d>.i?.&ds.j 00016700 

si«=f; n(su=si + 8); dis=lqc hdr; ds;=wds; ooouaoo 

END STREAM PROCEDURE HDR; 00016900 

X ************* ******************* *.* *.* * k *.*.* 1t it * * is.* * *..*..*.it.^t.t.* *.*.1iii*^*^jk.tiJt.jk* t.tOSiiiX7 OQQ 
STREAM PROCEDURE ERRMSG (BuF, tRRMSG); VALUE tRRMSG; 00017100 

%***********************************************************************Q0Ql7200 

BEGIN _ _ OOO-iZiOU 

00017400 

00017500 

_ QQy.176.Q-Q 

r* ******************************** *****0QQ177Q0 

00017800 
'.* * * *** * ******* *** *** * **QQOl 79 Q.Q 

BEGIN " " " " 00 o" 18 00 

SUsLOC LREC; DU=8UF; DSt=8DEc; DI*=BUF; DS«s7FILL; 

THtN Sl»aSl4l EL3c DS:=CHR); 



.....BEGIN _ _ 

ois*buf; dsj = 4lit"erkj"; su*loc erkmog; si»«si + u os:s?chh; 

DSJ=2LIT" w ; 

END ERRMSfi; 

******** ******************* *******WVW***W*******K^ 

STREAM PROCEDURE REKMjMBER CBUF*LBEC )f VALUE LREC; 

ar- n T M 



sjisbuf; djjsbuf; gcjF sc=" 

DSlsBLIT" '•; 

END STREAM PROCEDURE REKNUMBER; 



00018100 

.Q.Q0_11Z0Q 

00018300 
00018400 



% ********** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ****.** ********** Q Q_) 1 85 Q Q 
REAL PROCEDURE CHEKF I LEC NAM1 * NAM2 > AHA y ) ; VALUE ' n" a M1VnAM2'; " 00018600 

%^4».i..l.J-.l.J. J -J..l.^-.l.j.J-J-J-J.J-.l.J-j.l. a l.j.j. j. j. j_ j. j. .1. J. j_ O. j. X j _i_jj.j_j_.j_.. j , J. j. i. j. . . . ■ 



X************************************+**********************************0QQJQ700 

OQO 1.8800 

00018900 
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QQOiSlM. 



LBlt 

...UB2.« 

LB3» 

FIN: 



)ii»away; us j«5lit"file "; sii*nami; 

iI« = SI + i; 7(IF SC'ALPHA THEN DSS=CHR ELSE Si»sbl + i)j DSJaLlT'V"; 

\IJ ■ SJ ..♦ XL I C.IE...iC_?li,PMA _LH£_N_fl . b I j_ C.HR £L Si. JU..M£„.QJJ.L).i..._Q..S_i ■ L I T " " / 

:ii*CI+NJ GO LS1J GO lb?; GO LB3; 



REAL. NAMUNAM?; ARRAY ARAYLOJ; 

BEGIN FILE IN DSK 12 (2#l0/30); REAL V; 

STREAM PROCEDURE MESSAGEC ARAY# NAMt* NAM2# N ) ; VALUE N» 

BEGIN. LAaEL_.Lftl J tL&2j.LBljf.£lhl _ _ 

DU*ARAy; DSJ«5LIT"FILE "; SU'NAMi; 
S 

- 5.1 

cu*ci+n; go lbi; go lb2; go lb3; 
ds«al4lit m is not on disk"; go to finj 

DS1» 9i II'MS. ._LQ£K£Q! , .l GJ3.-X0_F.iNi 

DS«*26LIT"IS ALREADY IN YOUR LIBRARY"; 

DS8=LIT LEFTARROW' 

END STREAM PRQC£DURt_ MESSAGED 
FILL DSK WITH NAM1,NAM2; SEARCHCDbK,ARAY[*]); 
CHEKFILE»*V>*ARAYC0]; IF V!«V+1 uTr 2 THtN Vt'2; 

MESSAGE(ARAY»NAM1»NAM2j ) V); __ 

END PROCEDURE CHEKFILE; ... 
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X***********************************************************************000207 
BEGIN LOCAL STRT*FIN; LABEL LOOP^NEXT ADRS* EX IT ; 000208 

sijaiplb; . six.i J sj.+ai_iiiiasci .__ _..__ ■_■ 000200 
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loup: 

ST 
IF 
IF 



IF 



IF 

SI 
IF 
SI 
NEXTA 
FI 

SI 

EXIT! 

AT 

EN 

X**** 



IF SC» 

rti«si; 

SC GEQ 
TOGGLE 
BEGIN 
SI? »5 I 
62CIF 
IF TOG 

GO TO 

end; % 

SC * A 
BEGIN. 
SI I =SI 

62CIF 

IF TOG 
GO TO 

end; X 

SC NEQ 
BEGIN 
t=LOC 5 
8 SC = D 

j«strt; 

DRS» 

.N.»*.si; 

l*LOC S 



" " THEN BEGIN Sl:=SI+l> 
% SAVE STARTING AOOHESS 
"0" THEN. IF .SC LEii "9" iHENi 
THEN X NUMERIC TOKEN 



go to loop; end; 



+ 11. TAixY I_a._.li. _ _ 

SC GEQ "0" THLN IF SC L_- "9" THEN* 

GLE THEN BEGIN Sli=Sl + i; T ALL Y « =T ALL Y + 1 ; 

NEXTAQRS; _ 

IF NUMERIC TOKEN 
LPHA THEN IF SC LEO "9" THEN * ALPHANUMERIC 



TOKEN 



SC LE- "9" THEN* 

a 1+1.1 J.A.LL.Y i S..LALL T + 1 / LkD... ELSL 



+ 1; TALLY: = U 
sc = alpha Then if 
GLE THEN BEGIN. „S1? 
NEXTAORS; 

IF ALPHANUMERIC TOKEN 

LEFTARRCW THEN X SPECIAL CHARACTER 
TALLY:=i; Si:=Si+i> GO TO NEXTAORS; El\u; 

trt; oi:=loc eor; 

c then .gq to ex.i.ij ...* e..nu ..gf rlco'ip. 

SII"Si*tJ f ALLYtri; 

si«=Lnc fin; dij s I.ptr; ps».=wos;. % aopbe.ss. of. nj_xj 
trt; diistptr; ds;-wos; * address of token 



CH.B._. 



oken ?= tally; x token size* 
d stream procedure atokenj 



C ZERO IF..EUH..J 



** 



********** ************************************ ********* 



ST R E A M . _P ROC.EDu BE 0..U T F OR MA 1 1.B..U F * JLQ B.K. ._. .§£_ 2 / 

:************************** 



X* **************** 

BEGIN 

SijsSEq; Di:«B.y. 
si:«buf;di»sbuf 

sii»work; 2(DSi 
end stream proc 

X***************** 
REAL STREAM PROCED 
% * **************** 



************* 



BEGIN LO 

dii«f; D 

_S.II»FINX 

sijsSc; 

si jswp; 

TSCLITSC 
IF OS SC 
Slt*LlTS 

IF TO.GG.L 

BEGIN 

LITSCANt 

..L.ITSCAN1 



END STRE 
X********** 

_REAi._lTRE.AM 



CAL FLO 
S:*8LIT 

; s 1 1 s s 

FLOKJsS 

SIS5SI+ 

AN:=SI; 

- DC f 

can; si 

E THEN. 

Di:=F; 

■si; si 

uujja 



f; DS»=ac.HR.; 

; ec if sc= M 

»36 CHR); DS 

EDU.pE OUT FOR 
************ 

URE LITSCANC 
************ 

k Vos"; 

"0 M ; X RESET 

i+a; p.i.i»lo..c 

I; % ADDRESS 

5; si**sc; % 

__QI.L5LE.LMi 

KEN JUMP OUT 

t"Si+i; Tall 

X... FOUND A MA 

Dls=DI+/; 

:»LOC LITSCA 



DliabUj; DSWElUa' 
" then si; s si+i ElSE OSJ-C 
:»9Ln" "; 

mat.; 

************************** 

Ts»mp#FiNX#F); value ts; 

************************** 



f to false 

os> .pi.L»jji+7' ds.j'chr; x old sjze. 

GF OLU STRING 
AUDRE-S OF WORK AREA 



yjsjally+i); 
TCH 

s:=LIT"i"; end; 

n; D!;=hp; DS»=hDs> 



AM PROCEDURE LITSCAN; 

*********************************************************** 
PR Q C _E D USE_5J.il. U_M_.C_B.UF » SEQ'LRECSFlGjST AR ); VALUE sflg.star; 



X* ************** ************** 

LABEL LSL; 
_______ LAJLJJL4. 



BEGIN LOCAL SV; 
.W.I-SBJJEi. _JUjlLL 



************************** 



00021000 
00021X00 

Q0U212.QG 

00021300 
0002U00 

Q.QQ215QG 

00021600 
END El.SE JUMP OUT Ji00021700 

000218.00 

00021900 
00022000 

QQ.i32.2aG4.. 

00022200 
00022300 

JUMP. Jl_I.J.Q_lU__2__a. 

00022500 
00022600 

Q00222fl_ 

00022800 
00022900 

... Q.0.0.21UO.Q. 

00023100 

00023200 
QQ.O233OO 

00023400 
00023500 
0.0.023600 
00023700 
**00023800 

QQ.0iA9.QQ.. 

**00024000 
0002410C 

___. 0Q0 24P0Q 

HR); DSJsLlT" "J00024300 

0002440 
_ QOq.24500... 

**0C0_460C 
00024700 

1*00 02.4.80 o_ 
00024900 
00025000 

_... 00.025100 
00025200 
00025300 
00025400 
00025500 
00025600 
-QQ0257Q0 
00025800 
00025900 

__Q0026Q0Q.. 
00026100 

**00026200 
000 26 300 



********! 



**************! 
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********! 



********! 



************** 



STAR(DSlsLlT M * M 

svi»di; 

_J_ACJJ_3L§£_i D 



; TALLYJ52); 
L_LLJ1C STAR; 



D St»8C HR; JUMP OUT TO LBL); 



**00026400 
00026500 

........ ()_a__i6_Q_ 

00026700 
00026800 

_0J_L26_00_ 
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Si:sLREC; Dl:=L0C STaR; dS:=6DEC> 
LBLj 

DIJsLQC. 3TARJ DS?-7FliL.; 3I!?LQC STAR/ 

di»*sv; 

8CIF SC=" " THEN Si:»Sl+l ELSE 

BEGIN. ..DSJ.*CMH1 TALLY ! = TAULY.+ 11 EJiDli ._ 

SETNUM : = TALLY; 

END STREAM PROCEDURE SETNUM/ 
%.*.* ,.* **.*.*. * * ***** *.. *.*. *.*.*** .**.*.* .*.*.*. *.**.***.*.* .*.*..* *.*.*_.*_*** **..*.*. *_.*_*_ ************ 

BOOLEAN STREAM PROCEDURE TOKENSMAtCHC H, n6x 1*NDX2 3 1 VALUE nJ " 

********* ********************************************************** 

BEGIN _ ....,„._ „.. 

label exit; 
local s,d*r; 

S 1 : sNDX 1 ; S_l_i *S I +4 |._DJ.:.?_NJD All ..Jil.?.?J3J.+ ii 

N(Si«si; d»«di; 

IF SC*DC THEN % TOKEN LENGTHS ARE EQUAL. 
BEGIN 

si« = si-i; oitsLcc r; d i : = d i + / > ds:»chh; 
si:=sc; dis=d; di**oi+i; du=uc; 

IF R.SC Jia.OC TH£N. JUMP .OUT. TU .EsJu. % 10KE.NS NOT. ..EQUAL* 

END ELSE JUMP OUT TO EXIT; 

su*s; sij»si + 8; di:=d; ui*«di+8;)* 

TALLY*»i; 

EXITJ 

tokensmatch«=tally; 
end of tokensmatch; 

X************************* ****************** *********************** 
PROCEDURE PRINT; 

.. X * .*.**** * * *..*_ *************************************** ******_**Jf ******** 
BEGIN 

FORMAT FMT(X81» 18); 

IF OUTFlLTHEN % H£Vl RECORDS TO OUTPUT FILE 
BEGIN 

if sflg then backshiftcwuriS[9J )t * move sequence number back 

WRlTECDSK2*lQ#h0RKC*.J.)J .. 

END 
ELSE IF SITE THEN % LIST RECORD* UN LINE PRIME* 

BEGIN 

IF SFLG THEN BACKSHIFTC WURKC9 J > ELSE kvRI TL C lPA[ NO 3 *FMT ,LREC ) ; 
WRITE(LPA*«*«M0'W0RKt*3); 

END „ 

ELSE IF NOT BRAAK THEN % OUTPUT TO REMOTE 
BEGIN 

I F ... T.E.X T .. THEN. - _._ .... 

BEGIN 

IF NOT SFLG THEN 

B.E.GJ.N _ _ _.. _. 

REKNUMBERCOUTBUF»LRLC); TWXQUTC GUI 3uF I 3/8 / 1 ) / 
TWXOUT(WORKt03*80* 1); 

END _ 

ELSE 

BEGIN 

0UTFQRMAT(0UTBUF»HORKC03»WQKKUQn; 

TWXOUT ( OU TBUF [ 3 * 8 1 * n ; 

end; 

JEMU X_If_.I£X.T - _ __. _ ._ 

else 

BEGIN 

-- _. aQUNTl*SETNUM(OUT8UFtWQRKClU3,LREC>SFLG#(PE RLlNE GTR 13 )i 



000k;700Q 
00U27100 
QO.0272Q0 
000273GG 
00027400 

0.Q.0275G.G 

00027600 
00027700 

*.****QG.Q27.aGQ.. 
00027900 

*****00028000 

aao28.aoio.- 

00028200 

00028300 

..._ fiQ..Q2JL4Q-Q 

00028500 
00028600 

CLQ.G28.7..QG.. 

00028800 
00028900 

00029000 

0002^100 
00029200 

.GO 029 3.0 Q 

00029400 
0002V500 

_ QQ0Z9.6Q.Q.. 

*****00029700 
00029800 

*****00029QQO . 
00030000 
OC030100 
00030200 
00030300 
00030400 

aaojosoo 

00030600 

00030700 

OOUJttBjQO 

00030900 
00031000 

_O0fl_lUfiO-. 

00031200 
00031300 
00031400 
00031500 
00031600 

— .OXL0117GJ3 

00031800 
00031900 

QOH3.Z00G- 

00032100 
00032200 

... Qflfli2lfifl 

00032400 
00032500 

.QD 0.126 OIL.. 

00032700 
00032800 

ILQ012SJML. 
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13 
M 
10 

it> 

'17 

|,8 _ 
itjl 

Ui 

} \. 
p. 

|23 
i 

it; 

!*■ 
27 
7.8 
29 
30 
31 



i4l 
J(il 
» 
,37| 
ill 
39 
•0 



43 
44 
45 
Hi 
47 
48 
43 
>0 
51 
52 
53 
i4 
55 

56 



THEl 



linsiz :« o; 



TWX0UT(GUTBUr[0]»C0UNT*3"luU000"); 
IF LINSIZ »= LINSIZ + CUUNT GTR 60 

BEGIN _ 

twxout(outbufco]*0'1); 
end; 

end; .?. if NCI. text; 

end; % if not braak; 
end procedure print; 

..%*. * *.*.*. *..*.*. .*...*..*,.*..*...*..*..*.* ************ 
REAL STREAM PROCEDURE TS T ZE '( WORK ) ; 
******************************************************************** 

BEGIN _ _ _....„.. 

siiswork; si :«si + 4; uii«loc 
end stream procedure tsize; 



'.*..* *.*.*..* .**..** *..**** *.* ******* **.***.* ******** 



Tsizt; di:»di+4; us:=4Chr; 

********** * * * * * * * * ***.*****_**.* _*.*.* * j* *.,*** * *_* 



... j*_*_* *.*..** ******************* _ „ .. _ 

real stream procedure unp ak c adrs* f inx/nf* tkn* num i * nuM2,"flg > ; 



******************************************************************** 



ARRAY (OCTAL) 



ft*"************************************************************ 

COMMENT. ROUTINE. .TO. TRANSLATE CODED ..8TR.IMS in INPUT SAVE .ARRAY 

INTO USEABLE FORM FOR "FIND" PROGRAM. 

FORMAT OF INPUT ARRAY IS: 

.1 IF INPUT FULL NAM Sft C J£1.£D. ... 

I IF OUTPUTFILE NaML SPECIFIED 

1 IF "SITE" C LINE PRINTER ) SPECIFIED 

1. IF "PRINT. .TEXI'L...SPE.C.IF.lED 

total size ( i N characters ) of Input 

ARRAY, STARTING AT WUR.D 1 : 

ISPRECESPEO. BY A -FOUR. CHARACTER CU.DE " - 

2 IF A STRINTT — ■ 

A SINGLE SEQUENCE NUMBER 

A L-OWER--aDUND-XOR.-A-...SE.UijEN-CE.--H.ANfi£ - - 

A FILE NAME 

"FIRST" IS SPECIFIED 

. '.'.L I.T£.fi AU?_Ifi. .SJ?£CI£.IL.D _ _ 

( IN CHARACTERS ) QF THE STRING (OCTAL) 
CHARACTER OF THE STRING 



WDt0j,[02»0n 
HDtO], £03*013 * 
HOtOj, [04101] ■ 
..J1D10 3.I1.7.I.Q11." 
HOtOl, [24:243 = 
FORMAT OF INPUT 
EACH "STRING" 
CHARACTER 1 » 
CHARACTER 
CHABACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 
CHARACTER 



1 

1 
1 
2 
3 
4 

5 



IF 
IF 
IF 
IF 
IF. 
SIZE 
FIRST 



FQ.RMAT Of OUTPUT. ARRAY WQR.OSJ 

WD. £17. 013 = 1 IF "FIRST" SPECIFIED 

WD. [23*013 = 1 IF "LITERAL" SPECIFIED 

W..D. £24:061 s .SIZE QF STRING OR lUKEN 

WD.[30:i83 * ADDRESS OF STRING OR TUK£N 

THE ROUTINE - 

BREAKS THE. "EXISTING" STRUGS JNTO TDK£NS ( UNLESS 

SPECIFIED ) AND PLACES THE SIZE AND LOCATION (ABSOLUTE 

OF THE TOKEN IN THE INPUT ARRAY) IN1U ARRAY "FlNX", 

.. THE ...NUMBER D£_.T_0 KEiiS_.jMXl-...W,Hj.CH_..T_HE.. ST R 1 _ N jj j S Q J V 1 £_££ 

PASSED BACK TO PARAMETER »TKN"# AND THE WORD INDEX (PARAMETER 
"NF" ) IS INCREMENTED BY l FOR EACH TOKEN PLACED IN "FlNX". 

WHEN A SEQUENCE NUMBER I &_E&C0U-NIE.RED- 

FLG = 1 FOR A SINGLE SEQUENCE NUMBER* ~" 

FLG s 2 FOR A SEQUENCE "RANGE" 



"LJtERAL". IS 

ADDRESS 

-IS. 



NUM2 s OCTAL 
NUM1 - OCTAL 
WHEN A FILE 
FLGal FOR A 
FLGsfl FOR A 
NUMl s FIRST 
NUM2 



.¥.AUAE__Q£ 

VALUE OF 
NAME IS ENCOUNTERED, 

SI NGLE NAME 

DOUBLE NAME ( A/B ) 



SEQUENCE NU MBER ( OR _LPP£.R BOUND FOR RANGE ) 
LOWE« BOUND FOR RANGE ( whERE APPLICABLE )", " 



000J3U00 
00033100 
0003320.0 
00033300 
00O334OQ 
00O335_0.0 
00033600 
00033700 
.*.***00U33aQ0 
00033900 

****00034000 

- 00.0 .3.4-1.00. 

00034200 
00034300 

*.**_*. oaoiMiJo... 

00034500 
****0Q0346QQ 

- QQ.014lQ.a 

00034800 
00034900 
0.3.5 QOO 

00035100 
00035200 

- 00.0-35300 

00035400 
00035500 

00035600 

00035700 
00035800 

Q.&Q 15.90.0 

00036000 
00036100 

___ UnJUA^Qfl 

00036300 
00036400 

0.0.0.36500 

00036600 
00036700 

0.0 0.36 6 0... 

00036900 
00037000 

_ 00_0!710J3 

00037200 

00037300 
000.37a00 
00037500 
00037600 

_ 05-0 3 7? QO. 

00037800 
00037900 

00038000 



NAME 
* -SECOND NAME 



_£__!£_ GIVEN ) 



THE POSITION OF THE INPUT STRING TO 
BY THE ADDRESS IN PARAMETER "ADRS". 
RE'ASS IGNE D_T HE ADQRESS OF THE NEXT 



BE EXAMINED IS SPECIFIED 
THIS PARAMETER IS 

inpu t str ing when 



00038100 
00038200 
0QO383O0 
00038400 
00038500 
00038600 
00038700 
00038800 
00038900 



10 

11 

12 
13 
14 I 

15 
16 
,7 I 



20 

21 

22 

23 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 i 

36 

37 

38 < 

39 
40 

«,< 

42 

43 

44 1 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



• 



• 



^ ^ 



ARRAY 



;'3| 
24 

;,»6 

2/1 
28 

a 

ao 

pi" 

;t'i 

n 

Ul 
IS 

'■< 7 f~ 

3,r 
39 
''tOj 
4l 

!«' 

l I— 

I44 

|4S _ 

r'- 

M 
bl 
52 



THE PROCEDURE IS EXITED. 

THE SIZE OF THE CURRENT STRING lb KtlURNED TO "LKPAK" 

TO ALLOW COMPARISON BEtfe£.ENT.h£.-IDTAL.iliE LF Tnt INPUT 

AND THE SIZE OF THE STRINGS ALREADY PROCESSED. 
END OF COMMENT) 

BEGIN LOCAL NifU#T2fSVl*SV2,SV^UV*..TKj _ 

LABEL CYCLE'XFF.R,MjMBR,FIlL'EXITJ 

di»*flg; ds:«8lit"o"; % reset m sequence number flag 

SI.isADR.SJ SlJ_=.SI+5i SI ;» S£i S±lA=All 3 .SIART1N.U AD.D.RL.SS _. 

SltsSI + 3; DH^LQC Tli DU s DI + 7; 0S:sCHR; % SUE OF THIS STRING 
TALLYJ-Ti; UNPAK«*TALLY; X SIZE TU "UNPAK" ALSO 

._ 5.1.1. ".SY ll-.lE.se 4IR..^!! -THEN GJQ._lQ_£I_iLI_t. FILE NAME _ ._ „_ ...._ 

IF SC GTR "2" THEN GO TO NUMB6; * SEQUENCE NUMBER FIELD 
SC LSS "3" THEN % A STRING 

BEGIN. S 1.1= Ml CIl"UlC_.JUJQSj.!!j».(iSi....?L_5.tR.l..ujQ LfiiofJLJlJLlfln _.._ 

DII*FINX; N(DII«O.I + fi); DVtsDl/ % SKIP PREV. wDS> SAVE ADDRES 
SltaSVU sn»si+2; if sc-"i M then % "LITERAL" CODE 

BEGIN SltsSI-i; DlJ».Dl + 2i USl.= 3 CHRi % "F1R&X«*.2L1.1LRAL.»m£1ZE. . 
SV2«=Si; SlisLUc SV2; SI*=SI+5; DS:=3 CHR; * ADDRESS OF STRING 

tally»sn; tallyj=tally+i; m^tally; * increment index 

SIS=LQC Ni -Dll?NFi. .0SI..»WO5i. % TKANS.FER TO EXTERNAL VARIABLE 

sisbsv2* si:«si+ti; SV3«=SU % address uf 

TALLYlsi; TK:«TALLYi * "LITERAL" STRING * 
GO TO exit; 

END/ % IF "LITERAL" 
% BREAK UP INTO "TOKENS" IF NUT "LITERAL" 
SII"S.I + 2i SV2J=Si; i POINT. TU ACTuAL ST'R.liv.6. 



IF 



NEXT FIELD 
1 TOKEN 



CYCLE: 



TD EXIT; * END STRING 

lOJi£.M_CJQUNl^-JLhXa S.IRX-N.G 

ThEN * STARTS WITH LETTER 



XFERI 



Sl:«SV2; TALL*l*Ti; % SKIP OVER BLANKS NEXT 

TIC IF SC N.EQ ."-..". THEN ...J.U14P.. QUI J... .S.L1 ail + l.i._.I ALLY .lAlALLXfcAi). 

ti:*tally; sv2issi; 

Si:=LOc Ti; SlJaSI+7; IT SC="0" THEN GO 

T ALL Y ? «T.1U TALL Y..?.?-I.ALLX*.ii IK1 .slAiXXi ...1. 

SIJSSV2; IF SC*ALPHA THEN IF SC LSS "0" 

BEGIN TALLYtaO; ' 

TKIF SC.LEfl ",9" THE.N..ELS.E. JUMP OUT/ 

IF SC = ALPHA THEN ELSE JUkP OUT; 

sijssi + i; tallyj = tally + d; 

. . T2V«I.ALLYJ. TALLY i*qi S.V.3I-SU _ 

IF TOGGLE THEN TU«TALLY ELSE * ALL CHARACTERS USED IF TOGGLE 
BEGIN TALLY»»Ti; T2< TALL Y JsjALL Y+63 ) ; TOTALLY; END; 

Sl?*SV.l.; ..SllsSItll. ...DLLLiflYi JiJJ.a£LL*2J._ _ __ 

DS:=2CHR; % "FIRST" AND "LITERAL" CODES 

SH=LOC T2; SHsSI + 7; Di>i*CHR; % TOKEN i>IZE 
S.II*LQC..SJf2i-SI,l=Sj:+5A.JiSi=i,CJiRJ_ i_.ADJlHE.&J5 DJ1..I.Q.K.E.N 

sij.sv3; sv2!*si; dvssdl; % save addresses 
tally:*n; tallyj-tally+i; nj«tally; % increment index 
si**lo..c...n;._c.I!*nf;. osfs^iDS; % transfer to external-Variable 
go to cycle; 

end x if a letter string 
else if sc leq "9" ih£n * a_digij string 

BEGIN TALLY imo'i 

TKIF SC LSS "0" THEN JUMP OUT; 

IF SC GTR "9" THEN .JUMP OUT; 

Sp=Sl + i; TALLYlsTALLY + l); 

T2»»tally; tally:so; sv3i*sn 

J.F IlLGfiLE I H£N_» ALL_£MARAil£J3S__NiU....US£fi _. _ _ 

begin tallyisti; t2(tally i*t*ily*63> j tl«»tally> end 
else ti»«tally; 

GO Til X FERJ % T_RANSF£R IQKENS 



O0U39O00 
00039100 

0:00 3.9200 
00039300 
00039400 
OJ3.0J 9_5O0_ 
00039600 
00039700 
DO..Q i9 6.00. 
00039900 
00040000 
OOUAOiOO- 
00040200 
00040300 

Q.QMy.4-0-C 

00040300 
00040600 
00.0*0700 
00040800 
00040900 

000 a 1 00 a 

0004H00 
00041200 

000.41.300 

00041400 
00041500 
0.004.1600 
00041700 
00041600 

.aoiiiUftoo. 

00042000 
00042100 
..Q.Q0.422Q0 
00042300 
00042400 
.0.004250.0 
00042600 
00042700 
.0.0.0.4.2800 
00042900 
00043000 

Qoeliioa. 

00043200 

0C043300 

000^3400 

00043500 

00043600 

P_0.043700 

00043800 

00043900 

0_0.04 4_QQQ. 

00044100 

00044200 

00044300 

00044400 

00044500 
0004460Q 
00044700 
00044800 
00044900 



M 
3 
4 
M 

6 
7 



56 < 



m • 



W~)9 



hi; 

1.1 

IE 
U'V 
17 

18 

Ml. 



2* 
.<()' 
i« 
27 
28 
29 
30 
31 
32| 

in! 



1*1 



44 

«s 

17 
48 
49 
SO 
51 
i2 
M 
j4 
JS 
56 
S7 



-"2 



END IF A DIGIT STRING; 
* A "SPECIAL" CHARACTER 
TALL.y?-Tli TALLY:sTALLY + 63>Mf = TALLY/ * QN£ CHARACTER IUKEN 

tallyi-h t2!»tally; sh«3w1j sv3»=si; 
go to xfer; 

E N P ; % IF Afg " E x I S J. I N 6 " S T RJ N fi 
NUMBR: % A SEQUENCE MjMbER 

DIlsFLG; OS«*8LlT"C0O0000r , J * SEQUENCE MjMBEH FLAG 

IF SC = "#" .TH.&.N % S£QU£N.CL "RANGE". ..SP_E.CJF.1EQ 

BEGIN DI'i-FUG; Dlf*Dl + 7; DSlsLlT"<2"; X CUUt FOR "RANGE" 
SllaSI+SJ DI»=L0C N; Dl»*0l+7> DS»*CHR; % SIZE Qf FIELD 
OUsiUmiJ_JJSJ»...K_QC.T.J - - - -■■ - - - 

sn=si + 3; du=lcc n; dissqiw; dss=chr; ( * *ize of next field 
tally»*unpak; tally;=tally+4; tally;mally + n; unpak**tally; 

DlJsNUMg; DS»=N OCT; SViSsSl/ GO TQ EX.1 1 J , - - 

END; * IF "RANGE" SPECIFIED 
SIt»SI + 3i DI»*LOC N; Dl!*DI+7/ D5I»CHR; 3! SUE OF FIELD 

DII5NUM2; . D.SI»N OCTJ SV3i=SIJ GO TO EXIT; 

FIILJ % A FILE NAME 

Sli=SI+4; % POINT TO START OF SThlNG 

DI.««E.LGi.. PS J=e.LIT ,, .0QQQQQQ.3;v; * CLUE FQh 5ING.Lt NAME 

Ol»"NUMi; DSJ»8LIT"0 " ; DU 8 DI"7; 

tally»«o; t2j«tally; 

TKIF SCsALPHA THEN 

BEGIN 

SV3I=SI; Sl!*LGC T2; SU«SI + /i 

if sc lss "7" then; ...... 

si :*SV3; if toggle then ds»=chr else si«*sWii 

TALLYisT2; T ALLY « »T ALLY+1 ; T2l*TALLY; 

END . ^ _ __ _ 

ELSE IF SC*"/" THEN 
BEGIN 

dp b flg; QHaQi+7; d5 !s lit"4"; 

DU«NUM2; DSJ»8Llt n "; Olisbw; 
sii>si+i; TALLYt*0; T2«=TALLY; 

END 

else sn-sj + ij; 
sv3»=si; go tq exit; 

EXIT« * 

Slt»LQC SV3; DH^ADRS; DSIoWd'S; i address of next field 

si«»L0C tk; dii»tkn; ds**wds; % transfer token count 

end. stream procedure, unpak; . 

X******************* ************************* *********************** 
ESP [031=0; DISKhAlT(l,ESP»JO# COMMON) J 

_.CflMQ.N__!* ESPl.Oj; . __ 

NAMl is ESP [53; NAM2 ** ESP[6j; % hORK FILE NAME 
SFLG »« ESP[7] NEQ 8; * NOT TYPE DATA FILE 
USER ts TJME(-l); % ySERfiOB£ 

diSkwaitci#esp,30,c6wmon); common := 0; 

INF IL := BOOLEANCESP[03.[2:i]); * "FIND FILE" 

OUJXIL. !s B00LEAN (ESP[Q J.E3ll J)j * "P RINT FILE " 

SITE »s BOGLEANCESP[03.U»l3>; * "PRINT SHE" 
TEXT l* B00LEAN(ESPC03.CJ7ll3)i X TEXT OR SEQUENCE NUMBERS 
.JTOIAL. __ L* TSIZECESP ); % TOTA^NP*. OF_CHARAC TENS IN IN PUT REC ORD 
ESPPTR := ADDRESSCESpfn ); 3J STARTING ADDRESS Of "STRINGS 
GRPCOUNT l= NR |» NF l* PREvNT »« NRANGES :s Q) % INITIALIZE 
i^jEE TOTAL GTR__0 D O % DECODE THE ll\ PUT RecQRQ 

BEGIN TOTAL * a TOTAL'"* 4 "«"% DECREMENT TOTAL 

UNPAKC ESPPTR* FN0INX#NF>TKNS#NUM1#NUM2*FLG); 
I F NF G TR PREVNF THEN it A STRING FOU ND 



00045000 
000«*biOO 
Ofl.9.4 52.0.0 
00045300 
00045400 
00P.45500 
000^^600 
00045700 
DO 04 58 PO 
00045900 
00046000 

oaonfi-ioo 

00046200 
00046300 

oxiQ-tt.6^.ao- 

00046500 

00046600 

0.0 04 6X00 

0004680C 
00046900 

00.01.7.000. 

00047100 
00047200 

000 4 7 300 

00047400 
000-47500 
00047600 
00047700 
00047800 

..- 0404 7-900 

00048000 
00048100 
00048.2.00 
66048 300 
00048400 

000.46500 

00048600 
00048700 

Q 0.4.8 .8.0.0 . 

00048900 

00049000 

„._.QJjO_4 9_lCiQ._ 

****00049200 
00049300 
Q00494J30 
00049500 
00049600 
00049700 
00049800 
00049900 
00050000 



00050100 
00050200 

.00050300 



00050400 
00050500 
000 50600 
00050700 
00050800 
00050900 



9 

10 
11 1 
12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

23 ' 

24 

":. 

27 
28 
29 { 
30 
31 

32 { 
33 
34 

>:< 

36 

37 

38 ( 

39 

40 

4, < 

42 

43 

44 i 

46 

46 

47 J 

48 

49 

50 I 

51 

52 

53 i 

54 

55 

56 ( 



i.,r 



30 

K" 

3.2! 

33 

W 

"i'i 

il) 
37 1' 
.id 
3B, 
'10 

:; 

r" 

'44 
AS 

i 

50 

SI 

— 

53 
W 

B5 

P 6 

t>7 



IF 



»• 



BEGIN IF NF GTR 100 THEN X TUU MANY TOKENS 
BEGIN EHRMSGCQUTBUF-fTaULQNfc")/ 

THXOUTCQUT.flUFt.Q.l#.13 J fOi;. jC.QM.MQn,, [2 .1 U 5 = 1> GO .10 EX.IIJ 

END IF TOO MANY TOKENS; 

TKNS[GRPCOUNT «» GRPCOUNT + U * * TKNS> * TOKENS/GROUP 

VAIf l« NEJ _ _ _._ 

IF a string; 

GTR AND FlG LSS 3 THEN * REFERENCE NUMBER(S) 

I .N-.N RANGES J = ..JM.RANSES t IX.. _ .._ 

NRANGES GTR MAXRANGES THEN * TOO MANY REFERENCE NUMBERS 

BEGIN ERRMSG(OUTBUF* M TO0MANY«); 

TiHX0UT(0UTBUFCO3*13»O)J COMMON . [ 21)3 t « \i GO TO EXIT; 

END IF TOO MANY REFERENCE NUMBERS; 

UNDC NRANGES ]:=UBOUNDC NRANGES] ;sNljM2; 

EkG. 6IR...1 THFN LbOUNDLN KANGE S] I»NUH1J X S£jLi RANGE 

; % IF REFERENCE NuMBER(S), 
GTR 2 THEN * FILE NAMECS) GIVEN 

IN _.._ 

INFIL AND NOT HAVEFlLE THEtN 

BEGIN 

HAVEFlLE I sTRU£/NA.Ml{=NUMi; 

NAM2IMF FLG = 4 THEN NUM2 Eu»E USER; 

END 

ELSE IF QylFIL.-TMEii MAM.3r*NUMii. . 

END; * IF FLG GTR 2 
END OF WHILE STATEMENT; 

..».»..,.# , « •-» • * * * • *-*** *-*■■♦■♦.»-»-♦-♦- • ***-.-»••*. 



IF 



GRP 
PRE 
END 
FLG 

BEG 
IF 



LBO 

IF 

END 

FLG 

BEG 

IF 



THEN % MISSING OR 

ExffT" 

.JJiOL...... 

exit; 



•-♦••#•#•••••■ •■«-•■ •■■♦ ♦ •"«■»■■• »-» • • • • • 

FILL OLD WITH NaMi,NAM2; 

IF INFIL THEN IF CHEKF I LE< NAM1 ,NAM2 ,0uTBUF ) LEG 

BEGIN . ......... ...... . 

TWXOUTCUUTBUFC03,6C>1); COMMON. C2»lJlai; GO TU 

end; 

I JL ... QUJF.IL THEN. -IF .. Cjtl.EJiF_ii.£iJaAMie..Ui.EKl-aUlBiJ.EJ. _G£i_JJ 
BEGIN 
TWX0UTCOUTBUFCO3*60*n; COMMON. C2»13 (a i; GQ TO 

END 

ELSE FILL DSK2 WITH NaM3>US£R; 

READ SEEK(0LD[03); MAX * sHQRC OLD ,7 ) ; * ECF POINTED 

IF INFIL THEN SFLG Is HDR ( OLD* 4 ) . [ 36 « 6 J NEQ8; i FIL.E TYPE 

woRkco3 5'«o; wrkadrs j* adoresscwohkj; 

GRPMRK != REALCNOT FALSE)* % LEFT ARRUfc 

EOR 1= ADDRE_SSC^QRKClO-REAi.(SFLGi3j; X_E_|\|Q _UF R£CQR_0 _ADQRESS 

LREC Ss REC 1= RC !s Qi 

IF SEOCHK :s NRANGES GTR THEN 

BXG. 1N_ LREC !«...tl_ S£.ft_J ■„-i 1.. .._ 

NEXTRANGE* 

LREC t* LREC - U 

LRANGE .!.» LBDiiNnLfiCi»il£+lli_MRA'yLSii 

IF NOT SFLG THEN % RECORD LOCATluN 
BEGIN 
R £ A .. S E£K i. L D C_L R E CJ = ( u R A IM G _t> 1 > * REA L(LRAN G E N E fi_ OJ.JJ I 

go tq serialrd; % skip binary search 
end; 

IF S£.QsLRANjGE_..IH£.k 

BEGIN LREC'sLREC+l; G U Tu HAVtCLDi END; 
IF (MAX-LREC) LSS 30 THEN GO TO iERIALRD; * SKIP BINARY SEARCH 

fiE£J.FJjaEJLtJJ!AXrjJiEiLL_U LHE.....OL.kIEJL..OF-..J$AME. 

GO TO RANDOMHDl 
DO BEGIN 
IF LRAN GE LS S SEQ TH E N % MO VE BACK* NOT LSS 



00051000 

OOObllOO 

.00.051200 

00051300 

00051400 

0003.1 5-00 

000^1600 
00051700 

00O5I8OQ. 

00051900 
00052000 

QOfli2lOIl 

00052200 
00052300 

-00.0 12 A SS 

00052500 
00052600 

00052700 

00052800 
00052900 

aooj3.3o.oa 

00053100 
00053200 

ooabjaao 

00053400 
00053500 

.,.»., r Q.Q0336QQ 
00053700 

L0CK00053800 

_ .-00053.900. 

00054000 

00054100 

Q00342.QO.. 

00054300 
00054400 

00051500. 

0005460C 
00054700 
0054800 
'00054900" 
00055000 
00055100 



X«_UflDUliI31llCl.i.. 
SPECIFIED 



00O55200 
00055300 
00 05 54.00 
00055500 
00055600 
.000.3.5.100.. 
00055800 

00055900 
0005 6000 

00056100 
00056200 
OQ0.5.6iO_Q 
00056400 

00056500 
aQ.036__6.Oa 
00056700 
00056800 
J&05690Q 



m • 



1 1, 

,VJ 

i 1J 

114' 
llvi 
If. 
1? i 

IS 

I 'I 



■i S 

;.t; 
27 
28 
»l 
,10 
»1 

l')' 



|H9| 



46 



m 

♦9 
50 
51 
52 
« 
)4 
i5 
5b 

■5- 



ELSE WQRKClOjraGR 
Dpi CHECK all Tc 



RECIs(RECiaREC-ADJ)xHEALCREC.tUUsO) ELSE 
IF REC:=(LREC »sRLC)+AOJ UTM MAX THEN REC:* 
RANDOMRD? 

READCQLD[REC],1C»W0RKC*]>; 

SEQ**0CTC0NV(W0RKL93); 
IF' SEQ«LRANQE THEN ..%. MATCHING RECORD 
BEGIN LRECJsRECi READCOLD)/ GO TU 
ADJ«=CREC-LREC) DIV 2; 
END UNTIL AOJ.LEQ H 
READ SEEK(OLDtLREC])i % NOT FOUND 
END; % IF RANGE SPECIFIED 

SERULfiOi 

READCOLD* 1Q» WORK £*]) [FIMSH]; 

LRECJ=LREC+i; % POINTS TO THE NEXT hECQRD 

IF SEQ.CHK THEN % CHECK SE-OUENCL JSI1LM&LRS. 

BEGIN 

SEQJsIF SFLG THEN CC TCONVf WORKC 9 J ) ELSE LREC; 

if seQ lss lrange thln ud to serialrd; X. TOO 

IF SEQ GTR HRANGE THEN * TOO HIGH 

IF RC LSS NRaNGES THEN GO MEXTHAN&E ELSE GU F 

end; 

HAVEOLD: 

IF SFLG THEN SHIFTSEGC WQRK19 ] ) 
ENPWORD « = "i; PERLINE i* 0/ 
FOR i:=l STEP 1 UnTIl GRPCOUNT 

BEGIN 
... hORKPTR {= WRKADRS; * START QF._.H£tGSD 

STRTWORD Js ENDWORD + M % LOCATION IN 

ENOWORD *« ENDWORD + GRPTKNS[i]; 

TOKENCOUNT i» COLS ...U Oi X-R£S£.I- 

IF B00LEAN(FNDINXCSTRTwuRD].U3:i J) THEN GO F 
TOKENLOOPJ 

I F .1 K EN L EN G T H : = a T K.E N L HflB K.P I.R / LUKE N P 1.8 j£ OR 

GO TO ENDILOOP; % END OF RECORD 

FIlINX£T0KENCOUNT]SsT0kENPTR & TUKENLENGTHL2« 

TOKENCOUNT !■ TOKEN COUNT ..♦ it 

IF TOKENCOUNT |_SS GRPTkNSLIJ THEN GO To TOKtN 
IF TOKENSMA TCH ( TOKENCOUNT' Fi\JD I NX tbTNTWORO J* FX 

BEGIN % FQUND A HATCH 

COMMON l* COMMON + U % NuMBEK FOUND 

PERLINE »* PERLINE + U * NUMBER IN This R 

TOKENCOUNT l» OJ. * RESET 

IF BOOLEANCFNDINXCSTRfwnRL)] .Ci/:il) THEN 

begin print; go to finish; end; 
go to tokenloopj % look at remainder of rl 
EN[) lf "jokens match;" " " 

TOKENCOUNT :* TOKENCOUNT -W 

IF TOKENCOUNT GTR THEN % oHlFT LEFT 

MO VEWORDS (TOKENCOUNT' F IL INX L I JVf \L I NX [ C 1 ] ) J 

GO TO TOKENLOOP; * CONTINUE TO END OF RECORD 

FINQLIT* 

COLSLEFT is go - 8 x REAlCSFLG) - COLS; % 

OLOSIZE :* FNDlNXtSTRTwQRD3.tiJ4:6J; * 
IE. COLSLEFT lSS. QLD-S.LZL .LHOi__G.O_..I.O 

TOSCAN ;* COLSLEFT - QLDSIZE + 1* 

IF TOSCAN GTR 63 THEN TOSCAN >= o3; % e>3 IN Q 
-3SAMNEIL-13 ._LIXS^AJ^.TJ1&CAN MMSJBJ6EJhiL N D 1 NJLLSIRI 

COLS J» COLS + SCANNED; % UP TO STRING* IF FO 

IF FOUND THEN 
—flEfil 



% MOVE UP 
MAX/ % NUT MORE THAN 



HAvtOLc; end; 

IN BINARY SEARCH, GO BACK 



LOW 

lNish; 

phrk; 

ken groups 



FnDINX FOR GROUP 



UDlIt; % LITERAL 

J a .IMJUil _ 

»4286j; % LOCATION 

loop; 

linx) then 

tCDRD 

»' f'i'rst 

CORD 



00057000 
MAX00057100 
00057200 
00057300 
00057400 
00057500 
00057600 
00057700 
00057800 
00057900 
00058000 

aoQsaino 

00058200 
00058300 

OQ0.5 8-400 

00058500 
00058600 
QCQ58Z.QC 
00058800 
00058900 
0.0.0 5.9000 
00059100 
00059200 

000 59 300 

00059400 
OC059500 
00059600 
00059700 
00059800 

0.0059.90.0. 

00060000 

00060100 
00.0602.00.. 

00060300 
00060400 

0006 05Q0 
00060600 

00060700 

QOQ 0.0.8.00 

00060900 
00061000 
00061100 
00061200 
00061300 
0006U00 
00061500 
00061600 

00061700 
0006 18 00 

00061900 

000620 00 



CHA 

LITERAL 

EJ*BiLfiQi ) J L_ 



KACTERS LEFT TO SCAN 

STRING SIZE 
*_.iniLAMALJ 



NE BREATH 

XOR0]«F0U NOi; 

UND 



00062100 
00062200 

... Q006E10JL 
00062400 
00062500 
00-U6Z600 
00062700 
00062800 

00062900 



31 



. H 
J!) 
■10 



1*4 1 

46 1 



bo 



,r- 



COLS 1= COLS + OLUSlZEI> % ADD aUt OF STRING 

COMMON J= COMMCN +i; * TUTAL NO. FUuNJ 

PERLINE 5= PERLINL . ..*. i; [..% ...fc|.CU F-Utt T.h.1 S RECORD 

IF PERLINE GTR 79 THEN GO TO LNDILUOP; 

IF BOOLEAN(FNDIKXtSTRTWQH03.tl7il3) THEN X FIRST 

BEGIN PRINT; GO T.Q FINISH.; LHD.) 

END IF FOUND; 

go to findlit; 

enuilqop? 

END I loop; 

IF PERLINE GTR THEN PRINT; 

go to. serialrd; 

FINISH* 

IF 0UTFIL AND COMMON 

CLUSECQLD); 

IF OUTFIL AND COMMON GTR 

TWXOUT(OUT8UF[0]#0»1); 

NUMFOUND(OUTBUF /COMMON); 

EXIT: 

ENU OF PROGRAM. 

ENDiEND. LAST CARD 



GTR THEN MOVtTYPtCULD/DoK*); 
THEN L0CKCDSK2,*); 
TWX0UrCUUTBUF[C]#34*l); 



ON. QCK.DI.Nu TAPE. 



S3 
B4 
65 
fifj 



0000300C 
00063100 

ooyc3ioc 

0C06330C 

00063400 

00 0.6 350.0 

0QO63600 

00063700 

00.06 3800- 

00063900 

00064000 

0006-4.100 

00064200 

C0064300 

QOU6440-0 

00064500 

00064600 
Q.QO 64.700 
00064800 
00064900 

99999999 



M 

3 
4 



* • 



LABEL 0OO0OO00OPRINTEROO175100CC EX C]B JEC T /RE AD ; F I LE 5UURCEF 1 LEsS YMbOL /f I NO > END* 



nBjECT /READ 



T* 



11 

G 



n. 

1/ 
li) 
t'l 



■JK 
271 

1 30 



3!:. 






48 
19 
50 
61 
52 
i.i 
i* 
>S 
56 



